home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler5.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  1.8 KB  |  6 lines  |  [TEXT/.Ob4]
  1. ˜˛Ì…∂Kepler5FocusStarFocusStar2PlanetÜõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritenofptsStar
  5. pConstellationnext tConsDesc
  6. ¸{self˚{R Read
  7. ¸{selfState
  8. ¸{self˚{R     Write tPlanetDesc
  9. ¸{self˚{F DrawSelStar pSelStarDesc
  10. ¸{self˚{F Draw |StarDesc
  11. ¸{self˚{F Draw xStarDesc2
  12. ¸{self˚{F Draw
  13.  NewFocusStar
  14.  NewFocusStar2
  15.  NewPlanet
  16.  NewSelStarܵàflDisplay Frame dsc nextX
  17. Y WH
  18.  ¸{f x!!FrameMsg!˚{msg     "Handler"handle t##FrameDescx0y0scale ext #$|$$ $PortDesc
  19. ¸{P˚{x$CX
  20. ¸{P˚{y$CY
  21. ¸{P˚{X$Cx
  22. ¸{P˚{Y$Cy
  23. ¸{P˚{x˙{y˘{r¯{col˜{mode $DrawCircle
  24. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode $DrawEllipse
  25. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode $DrawLine
  26. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode $DrawRect
  27. ¸{P˚{x˙{y %˘{sêØâflFonts&Font&˜{fontˆ{colı{mode $    DrawString
  28. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode $    
  29. FillCircle
  30. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode $
  31. FillQuad
  32. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode $ FillRect$xyrefcntsel next x'''StarDesc
  33. ¸{self˚{P 'Draw
  34. ¸{self˚{R 'Read
  35. ¸{self˚{R 'Write' #
  36.  (Name(name height"minX$maxX&minY(maxY)Font),raster0 4|**FontDesc&* |++Bytes)+